home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed22.d64 / tough addition (.txt) < prev   
Commodore BASIC  |  2007-02-04  |  22KB  |  727 lines
  1. 10 POKE53280,0:POKE53281,0:POKE646,3
  2. 20 P=0:POKE53272,21:GOTO100
  3. 72 O IFP=3THENPRINT"[147][150] YOU BLEW THAT ONE.           WAKE UP!  [146][159]":RETURN
  4. 80 FORTM=1TO500:NEXT:RETURN
  5. 81 FORTM=1TO1000:NEXT:RETURN
  6. 82 FORTM=1TO2000:NEXT:RETURN
  7. 83 FORTM=1TO3000:NEXT:RETURN
  8. 84 FORTM=1TO4000:NEXT:RETURN
  9. 90 GOSUB81:GOSUB600
  10. 91 PRINT"[154]     PRESS  SPACE BAR [146] TO CONTINUE
  11. 92 [161]R$:[139]R$[179][177][199](32)[167]92
  12. 93 [142]
  13. 100 [153]"LOAD       A TPUG EDUCATIONAL PROGRAM
  14. 110 PRINT"            FOR C64 COMPUTERS
  15. 120 [153]"                                        WAIT";
  16. 130 [153]"                                        WAIT";
  17. 140 [153]"                                        WAIT";
  18. 150 [153]"          ADDING TOUGH NUMBERS          WAIT";
  19. 160 [153]"                                        WAIT";
  20. 170 [153]"OPEN                                        WAIT";
  21. 180 [153]"                                        WAIT"
  22. 190 [141]90
  23. 200 [153]"LOAD   SELECT YOUR LEVEL:
  24. 205 PRINT"[159]   1.  SAME NUMBERS................ 2+2
  25. 210 [153]"   2.  NUMBERS DIFFERENT BY ONE.... 2+3
  26. 215 PRINT"   3.  NUMBERS DIFFERENT BY TWO.... 2+4
  27. 220 [153]"   4.  NUMBERS DIFFERENT BY THREE.. 2+5
  28. 225 PRINT"   5.  NUMBERS DIFFERENT BY FOUR... 2+6":GOSUB81:GOSUB600
  29. 230 GETR$:IFR$<>"1"ANDR$<>"2"ANDR$<>"3"ANDR$<>"4"ANDR$<>"5"THEN230
  30. 235 P$=R$
  31. 240 PRINT"[158]         YOU HAVE SELECTED "P$"."
  32. 245 GOSUB90
  33. 250 IF P$="1"THEN3000
  34. 255 IF P$="2"THEN1000
  35. 260 IF P$="3"THEN2000
  36. 265 IF P$="4"THEN4000
  37. 270 IF P$="5"THEN5000
  38. 500 REM RAY GUN
  39. 505 S=54272:FORE=STOS+28:POKEE,0:NEXT
  40. 510 POKE54296,15:POKES+24,15:POKES+6,240:POKES+4,17
  41. 515 FORA=1TO10:FORX=1TO255STEP25:POKES+1,X
  42. 520 NEXT X:NEXTA:POKES+4,32:POKE54296,0:RETURN
  43. 550 REM BELL
  44. 555 S=54272:FORL=STOS+28:POKEL,0:NEXT
  45. 560 POKE54296,15:POKES+1,130:POKES+5,9:POKES+15,30:POKES+24,15:POKES+4,21
  46. 565 FORT=1TO2000:NEXT
  47. 570 POKES+4,20
  48. 575 RETURN
  49. 600 REM DING
  50. 605 S=54272:FORL=STOS+28:POKEL,0:NEXT
  51. 610 POKE54296,3:POKES+1,130:POKES+5,9:POKES+15,30:POKES+24,15:POKES+4,21
  52. 615 FORT=1TO100:NEXT
  53. 620 POKES+4,20:POKE54296,0
  54. 625 RETURN
  55. 700 PRINT"[150]  NO  NO  NO  NO  NO  NO  NO  NO  NO    [159][146]"
  56. 710 GOSUB500:GOSUB81:P=P+1:RETURN
  57. 720 IFP=3THENPRINT"[147][150] YOU BLEW THAT ONE.           WAKE UP!  [146][159]"
  58. 730 RETURN
  59. 740 PRINT"[154][145][145]             TRY AGAIN                  [146][159]":GOSUB82:RETURN
  60. 800 PRINT"[158]               RIGHT ON!                [159][146]":GOSUB550:RETURN
  61. 1000 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81:P=1
  62. 1005 PRINT"             2 + 2 =  4 ":GOSUB82
  63. 1010 PRINT"             3 + 3 =  6":GOSUB83:GOSUB600
  64. 1020 PRINT"[145][145][145][145]             2 + 3 =";
  65. 1030 INPUTA$
  66. 1040 IFA$<>"5" THEN1060
  67. 1050 GOSUB800
  68. 1055 GOSUB81:GOTO 1100
  69. 1060 GOSUB700:GOSUB720
  70. 1070 IFP=3THENPRINT"  STOP AND WRITE   2 + 3 = 5  [159]"
  71. 1080 IFP=3THENGOSUB84:GOSUB90:GOTO 1100
  72. 1085 GOSUB740
  73. 1090 PRINT"[145][145]                                        [145][145][145]":GOTO1020
  74. 1100 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81:P=1
  75. 1105 PRINT"             3 + 3 =  6 ":GOSUB82
  76. 1110 PRINT"             4 + 4 =  8":GOSUB83
  77. 1120 PRINT"[145][145][145][145]             3 + 4 =";
  78. 1130 INPUTA$
  79. 1140 IFA$<>"7" THEN1160
  80. 1150 GOSUB800
  81. 1155 GOSUB81:GOTO 1200
  82. 1160 GOSUB700:GOSUB7200
  83. 1170 IFP=3THENPRINT"  STOP AND WRITE   3 + 4 = 7  [159]"
  84. 1180 IFP=3THENGOSUB84:GOSUB90:GOTO 1200
  85. 1185 GOSUB740
  86. 1190 PRINT"[145][145]                                        [145][145][145]":GOTO1120
  87. 1200 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81:P=1
  88. 1205 PRINT"             4 + 4 =  8":GOSUB82
  89. 1210 PRINT"             5 + 5 =  10":GOSUB83
  90. 1220 PRINT"[145][145][145][145]             4 + 5 =";
  91. 1230 INPUTA$
  92. 1240 IFA$<>"9" THEN1260
  93. 1250 GOSUB800
  94. 1255 GOSUB81:GOTO 1300
  95. 1260 GOSUB700:GOSUB720:GOSUB82
  96. 1275 IFP=3THENPRINT"  STOP AND WRITE   4 + 5 = 9  [159]"
  97. 1280 IFP=3THENGOSUB84:GOSUB90:GOTO 1300
  98. 1285 GOSUB740
  99. 1290 PRINT"[145][145]                                        [145][145][145]":GOTO1220
  100. 1300 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81:P=1
  101. 1305 PRINT"             5 + 5 =  10 ":GOSUB82
  102. 1310 PRINT"             6 + 6 =  12":GOSUB83
  103. 1320 PRINT"[145][145][145][145]             5 + 6 =";
  104. 1330 INPUTA$
  105. 1340 IFA$<>"11" THEN1360
  106. 1350 GOSUB800
  107. 1355 GOSUB81:GOTO 1400
  108. 1360 GOSUB700:GOSUB720:GOSUB82
  109. 1375 IFP=3THENPRINT"  STOP AND WRITE   5 + 6 = 11  [159]"
  110. 1380 IFP=3THENGOSUB84:GOSUB90:GOTO 1400
  111. 1385 GOSUB740
  112. 1390 PRINT"[145][145]                                        [145][145][145]":GOTO1320
  113. 1400 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81:P=1
  114. 1405 PRINT"             6 + 6 =  12 ":GOSUB82
  115. 1410 PRINT"             7 + 7 =  14":GOSUB83
  116. 1420 PRINT"[145][145][145][145]             6 + 7 =";
  117. 1430 INPUTA$
  118. 1440 IFA$<>"13" THEN1460
  119. 1445 GOSUB800
  120. 1455 GOSUB81:GOTO 1500
  121. 1460 GOSUB700:GOSUB720:GOSUB82
  122. 1475 IFP=3THENPRINT"  STOP AND WRITE   6 + 7 = 13  [159]"
  123. 1480 IFP=3THENGOSUB84:GOSUB90:GOTO 1500
  124. 1485 GOSUB740
  125. 1490 PRINT"[145][145]                                        [145][145][145]":GOTO1420
  126. 1500 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81:P=1
  127. 1505 PRINT"             7 + 7 =  14 ":GOSUB82
  128. 1510 PRINT"             8 + 8 =  16":GOSUB83
  129. 1520 PRINT"[145][145][145][145]             7 + 8 =";
  130. 1530 INPUTA$
  131. 1540 IFA$<>"15" THEN1560
  132. 1545 GOSUB800
  133. 1555 GOSUB81:GOTO 1600
  134. 1560 GOSUB700:GOSUB720:GOSUB82
  135. 1575 IFP=3THENPRINT"  STOP AND WRITE   7 + 8 = 15  [159]"
  136. 1580 IFP=3THENGOSUB84:GOSUB90:GOTO 1600
  137. 1585 GOSUB740
  138. 1590 PRINT"[145][145]                                        [145][145][145]":GOTO1520
  139. 1600 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81:P=1
  140. 1605 PRINT"             8 + 8 =  16":GOSUB82
  141. 1610 PRINT"             9 + 9 =  19":GOSUB83
  142. 1620 PRINT"[145][145][145][145]             8 + 9 =";
  143. 1630 INPUTA$
  144. 1640 IFA$<>"17" THEN1660
  145. 1650 GOSUB800
  146. 1655 GOSUB81:GOSUB1700
  147. 1660 GOSUB700:GOSUB720:GOSUB82
  148. 1675 IFP=3THENPRINT"  STOP AND WRITE   8 + 9 = 17  [159]"
  149. 1680 IFP=3THENGOSUB84:GOSUB90:GOTO 1700
  150. 1685 GOSUB740
  151. 1690 PRINT"[145][145]                                        [145][145][145]":GOTO1620
  152. 1700 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81:P=1
  153. 1705 PRINT"             9 + 9 =  18":GOSUB82
  154. 1710 PRINT"           10 + 10 =  20":GOSUB83
  155. 1720 PRINT"[145][145][145][145]            9 + 10 =";
  156. 1730 INPUTA$
  157. 1740 IFA$<>"19" THEN1760
  158. 1750 GOSUB800
  159. 1755 GOSUB81:GOSUB1800
  160. 1760 GOSUB700:GOSUB720:GOSUB82
  161. 1775 IFP=3THENPRINT"  STOP AND WRITE   9 + 10 = 19  [159]"
  162. 1780 IFP=3THENGOSUB84:GOSUB90:GOTO 1800
  163. 1785 GOSUB740
  164. 1790 PRINT"[145][145]                                        [145][145][145]":GOTO1720
  165. 1800 PRINT"[147]   YOU HAVE COMPLETED LEVEL 2.
  166. 1805 [153]"   YOU NOW HAVE A CHOICE:
  167. 1810 PRINT"   PRESS  R [146] TO REPEAT THIS LEVEL.
  168. 1815 [153]"   PRESS  C WAIT TO SELECT A NEW LEVEL
  169. 1820 PRINT"   PRESS  M [146] TO RETURN TO DISK MENU
  170. 1825 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"C"[175]R$[179][177]"M"[167]1825
  171. 1830 [139]R$[178]"R"[167] [140]:[137]1000
  172. 1835 [139]R$[178]"C"[167] [140]:[137]200
  173. 1840 [151]631,13:[151]198,2
  174. 1845 [153]"LOAD RETURNING TO THE DISK MENU
  175. 1850 LOAD"MENU",8
  176. 1855 RUN
  177. 1860 END
  178. 2000 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81:P=1
  179. 2005 PRINT"             2 + 2 =  4 ":GOSUB82
  180. 2010 PRINT"             2 + 3 =  5 ":GOSUB83
  181. 2020 GOSUB600:PRINT"             2 + 4 =";
  182. 2030 INPUTA$
  183. 2040 IFA$<>"6" THEN2060
  184. 2050 GOSUB800
  185. 2055 GOSUB82:GOTO2100
  186. 2060 GOSUB700
  187. 2070 GOSUB720
  188. 2075 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   2 + 4 = 6  [159]"
  189. 2080 IFP=3THENGOSUB84:GOSUB90:GOTO 2100
  190. 2085 PRINT"[154][145][145]             TRY AGAIN                  [146][159]":GOSUB82
  191. 2090 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO2020
  192. 2100 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81
  193. 2105 PRINT"             3 + 3 =  6 ":GOSUB82
  194. 2110 PRINT"             3 + 4 =  7 ":GOSUB83
  195. 2120 GOSUB600:PRINT"             3 + 5 =";
  196. 2130 INPUTA$
  197. 2140 IFA$<>"8" THEN2160
  198. 2150 GOSUB800
  199. 2155 GOSUB82:GOTO2200
  200. 2160 GOSUB700
  201. 2170 GOSUB720
  202. 2175 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   3 + 5 = 8  [159]"
  203. 2180 IFP=3THENGOSUB84:GOSUB90:GOTO 2200
  204. 2185 PRINT"[154][145][145]             TRY AGAIN                  [146][159]":GOSUB82
  205. 2190 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO2120
  206. 2200 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81
  207. 2205 PRINT"             4 + 4 =  8":GOSUB82
  208. 2210 PRINT"             4 + 5 =  9 ":GOSUB83
  209. 2220 GOSUB600:PRINT"             4 + 6 =";
  210. 2230 INPUTA$
  211. 2240 IFA$<>"10" THEN2260
  212. 2250 GOSUB800
  213. 2255 GOSUB82:GOTO2300
  214. 2260 GOSUB700
  215. 2270 GOSUB720
  216. 2275 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   4 + 6 = 10  [159]"
  217. 2280 IFP=3THENGOSUB84:GOSUB90:GOTO 2300
  218. 2285 PRINT"[154][145][145]             TRY AGAIN                  [146][159]":GOSUB82
  219. 2290 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO2220
  220. 2300 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81
  221. 2305 PRINT"             5 + 5 =  10 ":GOSUB82
  222. 2310 PRINT"             5 + 6 =  11 ":GOSUB83
  223. 2320 GOSUB600:PRINT"             5 + 7 =";
  224. 2330 INPUTA$
  225. 2340 IFA$<>"12" THEN2360
  226. 2350 GOSUB800
  227. 2355 GOSUB82:GOTO2400
  228. 2360 GOSUB700
  229. 2370 GOSUB720
  230. 2375 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   5 + 7 = 12  [159]"
  231. 2380 IFP=3THENGOSUB84:GOSUB90:GOTO 2400
  232. 2385 PRINT"[154][145][145]             TRY AGAIN                  [146][159]":GOSUB82
  233. 2390 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO2320
  234. 2400 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81
  235. 2405 PRINT"             6 + 6 =  12 ":GOSUB82
  236. 2410 PRINT"             6 + 7 =  13":GOSUB83
  237. 2420 GOSUB600:PRINT"             6 + 8 =";
  238. 2430 INPUTA$
  239. 2440 IFA$<>"14" THEN2460
  240. 2450 GOSUB800
  241. 2455 GOSUB82:GOTO2500
  242. 2460 GOSUB700
  243. 2470 GOSUB720
  244. 2475 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   6 + 8 = 14  [159]"
  245. 2480 IFP=3THENGOSUB84:GOSUB90:GOTO 2500
  246. 2485 PRINT"[154][145][145]             TRY AGAIN                  [146][159]":GOSUB82
  247. 2490 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO2420
  248. 2500 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81
  249. 2505 PRINT"             7 + 7 =  14 ":GOSUB82
  250. 2510 PRINT"             7 + 8 =  15":GOSUB83
  251. 2520 GOSUB600:PRINT"             7 + 9 =";
  252. 2530 INPUTA$
  253. 2540 IFA$<>"16" THEN2560
  254. 2550 GOSUB800
  255. 2555 GOSUB82:GOTO2600
  256. 2560 GOSUB700
  257. 2570 GOSUB720
  258. 2575 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   7 + 9 = 16  [159]"
  259. 2580 IFP=3THENGOSUB84:GOSUB90:GOTO 2600
  260. 2585 PRINT"[154][145][145]             TRY AGAIN                  [146][159]":GOSUB82
  261. 2590 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO2520
  262. 2600 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81
  263. 2605 PRINT"             8 + 8 =  16 ":GOSUB82
  264. 2610 PRINT"             8 + 9 =  17":GOSUB83
  265. 2620 GOSUB600:PRINT"            8 + 10 =";
  266. 2630 INPUTA$
  267. 2640 IFA$<>"18" THEN2660
  268. 2650 GOSUB800
  269. 2655 GOSUB82:GOTO2700
  270. 2660 GOSUB700
  271. 2670 GOSUB720
  272. 2675 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   8 + 10 = 18  [159]"
  273. 2680 IFP=3THENGOSUB84:GOSUB90:GOTO 2700
  274. 2685 PRINT"[154][145][145]             TRY AGAIN                  [146][159]":GOSUB82
  275. 2690 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO2620
  276. 2700 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81
  277. 2705 PRINT"             9 + 9 =  18 ":GOSUB82
  278. 2710 PRINT"            9 + 10 =  19":GOSUB83
  279. 2720 GOSUB600:PRINT"            9 + 11 =";
  280. 2730 INPUTA$
  281. 2740 IFA$<>"20" THEN2760
  282. 2750 GOSUB800
  283. 2755 GOSUB82:GOTO2800
  284. 2760 GOSUB700
  285. 2770 GOSUB720
  286. 2775 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   9 + 11 = 20  [159]"
  287. 2780 IFP=3THENGOSUB84:GOSUB90:GOTO 2800
  288. 2785 PRINT"[154][145][145]             TRY AGAIN                  [146][159]":GOSUB82
  289. 2790 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO2720
  290. 2800 PRINT"[147]   YOU HAVE COMPLETED LEVEL 3.
  291. 2805 [153]"   YOU NOW HAVE A CHOICE:
  292. 2810 PRINT"   PRESS  R [146] TO REPEAT THIS LEVEL.
  293. 2815 [153]"   PRESS  C WAIT TO SELECT A NEW LEVEL
  294. 2820 PRINT"   PRESS  M [146] TO RETURN TO DISK MENU
  295. 2825 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"C"[175]R$[179][177]"M"[167]2825
  296. 2830 [139]R$[178]"R"[167] [140]:[137]2000
  297. 2835 [139]R$[178]"C"[167] [140]:[137]200
  298. 2840 [151]631,13:[151]198,2
  299. 2845 [153]"LOAD RETURNING TO THE DISK MENU
  300. 2850 LOAD"MENU",8
  301. 2855 RUN
  302. 2860 END
  303. 3000 PRINT"[147][152]           LOOK AND SAY.. [159]":GOSUB81.
  304. 3005 PRINT"             1 + 1 =  2 ":GOSUB82
  305. 3010 PRINT"             2 + 2 =  4 ":GOSUB82
  306. 3020 GOSUB600:PRINT"             3 + 3 =";
  307. 3030 INPUTA$
  308. 3040 IFA$<>"6" THEN3060
  309. 3050 PRINT"[158]               RIGHT ON!                [159][146]":GOSUB550
  310. 3055 GOSUB82:GOTO3100
  311. 3060 PRINT"[150]  NO  NO  NO  NO  NO  NO  NO  NO  NO    [159][146]"
  312. 3065 GOSUB500:GOSUB82:P=P+1
  313. 3070 IFP=3THENPRINT"[147][150] YOU BLEW THAT ONE.           WAKE UP!  [146][159]"
  314. 3075 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   3 + 3 = 6  [159]"
  315. 3080 IFP=3THENGOSUB84:GOSUB90:GOTO 3100
  316. 3085 GOSUB740
  317. 3090 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO3020
  318. 3100 PRINT"[147][152]           LOOK AND SAY.. [159]":GOSUB81.
  319. 3105 PRINT"             2 + 2 =  4 ":GOSUB82
  320. 3110 PRINT"             3 + 3 =  6 ":GOSUB82
  321. 3120 GOSUB600:PRINT"             4 + 4 =";
  322. 3130 INPUTA$
  323. 3140 IFA$<>"8" THEN3160
  324. 3150 PRINT"[158]               RIGHT ON!                [159][146]":GOSUB550
  325. 3155 GOSUB82:GOTO3200
  326. 3160 PRINT"[150]  NO  NO  NO  NO  NO  NO  NO  NO  NO    [159][146]"
  327. 3165 GOSUB500:GOSUB82:P=P+1
  328. 3170 IFP=3THENPRINT"[147][150] YOU BLEW THAT ONE.           WAKE UP!  [146][159]"
  329. 3175 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   4 + 4 = 8  [159]"
  330. 3180 IFP=3THENGOSUB84:GOSUB90:GOTO 3200
  331. 3185 GOSUB740
  332. 3190 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO3120
  333. 3200 PRINT"[147][152]           LOOK AND SAY.. [159]":GOSUB81.
  334. 3205 PRINT"             3 + 3 =  7":GOSUB82
  335. 3210 PRINT"             4 + 4 =  8 ":GOSUB82
  336. 3220 GOSUB600:PRINT"             5 + 5 =";
  337. 3230 INPUTA$
  338. 3240 IFA$<>"10" THEN3260
  339. 3250 PRINT"[158]               RIGHT ON!                [159][146]":GOSUB550
  340. 3255 GOSUB82:GOTO3300
  341. 3260 PRINT"[150]  NO  NO  NO  NO  NO  NO  NO  NO  NO    [159][146]"
  342. 3265 GOSUB500:GOSUB82:P=P+1
  343. 3270 IFP=3THENPRINT"[147][150] YOU BLEW THAT ONE.           WAKE UP!  [146][159]"
  344. 3275 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   5 + 5 = 10  [159]"
  345. 3280 IFP=3THENGOSUB84:GOSUB90:GOTO 2300
  346. 3285 GOSUB740
  347. 3290 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO3220
  348. 3300 PRINT"[147][152]           LOOK AND SAY.. [159]":GOSUB81.
  349. 3305 PRINT"             4 + 4 =  8  ":GOSUB82
  350. 3310 PRINT"             5 + 5 =  10 ":GOSUB82
  351. 3320 GOSUB600:PRINT"             6 + 6 =";
  352. 3330 INPUTA$
  353. 3340 IFA$<>"12" THEN3360
  354. 3350 PRINT"[158]               RIGHT ON!                [159][146]":GOSUB550
  355. 3355 GOSUB82:GOTO3400
  356. 3360 PRINT"[150]  NO  NO  NO  NO  NO  NO  NO  NO  NO    [159][146]"
  357. 3365 GOSUB500:GOSUB82:P=P+1
  358. 3370 IFP=3THENPRINT"[147][150] YOU BLEW THAT ONE.           WAKE UP!  [146][159]"
  359. 3375 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   6 + 6 = 12  [159]"
  360. 3380 IFP=3THENGOSUB84:GOSUB90:GOTO 3400
  361. 3385 GOSUB740
  362. 3390 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO3320
  363. 3400 PRINT"[147][152]           LOOK AND SAY.. [159]":GOSUB81.
  364. 3405 PRINT"             5 + 5 =  10 ":GOSUB82
  365. 3410 PRINT"             6 + 6 =  12":GOSUB82
  366. 3420 GOSUB600:PRINT"             7 + 7 =";
  367. 3430 INPUTA$
  368. 3440 IFA$<>"14" THEN3460
  369. 3450 PRINT"[158]               RIGHT ON!                [159][146]":GOSUB550
  370. 3455 GOSUB82:GOTO3500
  371. 3460 PRINT"[150]  NO  NO  NO  NO  NO  NO  NO  NO  NO    [159][146]"
  372. 3465 GOSUB500:GOSUB82:P=P+1
  373. 3470 IFP=3THENPRINT"[147][150] YOU BLEW THAT ONE.           WAKE UP!  [146][159]"
  374. 3475 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   7 + 7 = 14  [159]"
  375. 3480 IFP=3THENGOSUB84:GOSUB90:GOTO 3500
  376. 3485 GOSUB740
  377. 3490 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO3420
  378. 3500 PRINT"[147][152]           LOOK AND SAY.. [159]":GOSUB81.
  379. 3505 PRINT"             6 + 6 =  12 ":GOSUB82
  380. 3510 PRINT"             7 + 7 =  14":GOSUB82
  381. 3520 GOSUB600:PRINT"             8 + 8 =";
  382. 3530 INPUTA$
  383. 3540 IFA$<>"16" THEN3560
  384. 3550 PRINT"[158]               RIGHT ON!                [159][146]":GOSUB550
  385. 3555 GOSUB82:GOTO3600
  386. 3560 PRINT"[150]  NO  NO  NO  NO  NO  NO  NO  NO  NO    [159][146]"
  387. 3565 GOSUB500:GOSUB82:P=P+1
  388. 3570 IFP=3THENPRINT"[147][150] YOU BLEW THAT ONE.           WAKE UP!  [146][159]"
  389. 3575 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   8 + 8 = 16  [159]"
  390. 3580 IFP=3THENGOSUB84:GOSUB90:GOTO 3600
  391. 3585 GOSUB740
  392. 3590 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO3520
  393. 3600 PRINT"[147][152]           LOOK AND SAY.. [159]":GOSUB81.
  394. 3605 PRINT"             7 + 7 =  14 ":GOSUB82
  395. 3610 PRINT"             8 + 8 =  16":GOSUB82
  396. 3620 GOSUB600:PRINT"             9 + 9 =";
  397. 3630 INPUTA$
  398. 3640 IFA$<>"18" THEN3660
  399. 3650 PRINT"[158]               RIGHT ON!                [159][146]":GOSUB550
  400. 3655 GOSUB82:GOTO3700
  401. 3660 PRINT"[150]  NO  NO  NO  NO  NO  NO  NO  NO  NO    [159][146]"
  402. 3665 GOSUB500:GOSUB82:P=P+1
  403. 3670 IFP=3THENPRINT"[147][150] YOU BLEW THAT ONE.           WAKE UP!  [146][159]"
  404. 3675 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   9 + 9 = 18  [159]"
  405. 3680 IFP=3THENGOSUB84:GOSUB90:GOTO 3700
  406. 3685 GOSUB740
  407. 3690 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO3620
  408. 3700 PRINT"[147][152]           LOOK AND SAY.. [159]":GOSUB81.
  409. 3705 PRINT"             8 + 8 =  16 ":GOSUB82
  410. 3710 PRINT"             9 + 9 =  18":GOSUB82
  411. 3720 GOSUB600:PRINT"           10 + 10 =";
  412. 3730 INPUTA$
  413. 3740 IFA$<>"20" THEN3760
  414. 3750 PRINT"[158]               RIGHT ON!                [159][146]":GOSUB550
  415. 3755 GOSUB82:GOTO3800
  416. 3760 PRINT"[150]  NO  NO  NO  NO  NO  NO  NO  NO  NO    [159][146]"
  417. 3765 GOSUB500:GOSUB82:P=P+1
  418. 3770 IFP=3THENPRINT"[147][150] YOU BLEW THAT ONE.           WAKE UP!  [146][159]"
  419. 3775 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   10 + 10 = 20  [159]"
  420. 3780 IFP=3THENGOSUB84:GOSUB90:GOTO 3800
  421. 3785 GOSUB740
  422. 3790 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO3720
  423. 3800 PRINT"[147]   YOU HAVE COMPLETED LEVEL 1.
  424. 3805 [153]"   YOU NOW HAVE A CHOICE:
  425. 3810 PRINT"   PRESS  R [146] TO REPEAT THIS LEVEL.
  426. 3815 [153]"   PRESS  C WAIT TO SELECT A NEW LEVEL
  427. 3820 PRINT"   PRESS  M [146] TO RETURN TO DISK MENU
  428. 3825 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"C"[175]R$[179][177]"M"[167]3825
  429. 3830 [139]R$[178]"R"[167] [140]:[137]3000
  430. 3835 [139]R$[178]"C"[167] [140]:[137]200
  431. 3840 [151]631,13:[151]198,2
  432. 3845 [153]"LOAD RETURNING TO THE DISK MENU
  433. 3850 LOAD"MENU",8
  434. 3855 RUN
  435. 3860 END
  436. 4000 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81:P=1
  437. 4005 PRINT"             2 + 2 =  4 ":GOSUB82
  438. 4010 PRINT"             2 + 3 =  5 ":GOSUB82
  439. 4015 PRINT"             2 + 4 =  6 ":GOSUB82
  440. 4020 PRINT"             2 + 5 =";
  441. 4030 GOSUB600:INPUTA$
  442. 4040 IFA$<>"7" THEN4060
  443. 4050 GOSUB800
  444. 4055 GOSUB82:GOTO4100
  445. 4060 GOSUB700
  446. 4065 GOSUB500:GOSUB82:P=P+1
  447. 4070 GOSUB720
  448. 4075 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   2 + 5 = 7  [159]"
  449. 4080 IFP=3THENGOSUB84:GOSUB90:GOTO 4100
  450. 4085 GOSUB740
  451. 4090 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO4020
  452. 4100 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81:P=1
  453. 4105 PRINT"             3 + 3 =  6 ":GOSUB82
  454. 4110 PRINT"             3 + 4 =  7 ":GOSUB82
  455. 4115 PRINT"             3 + 5  = 8 ":GOSUB82
  456. 4120 PRINT"             3 + 6 =";
  457. 4130 GOSUB600:INPUTA$
  458. 4140 IFA$<>"9" THEN4160
  459. 4150 GOSUB800
  460. 4155 GOSUB82:GOTO4200
  461. 4160 GOSUB700
  462. 4165 GOSUB500:GOSUB82:P=P+1
  463. 4170 GOSUB720
  464. 4175 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   3 + 6 = 9  [159]"
  465. 4180 IFP=3THENGOSUB84:GOSUB90:GOTO 4200
  466. 4185 GOSUB740
  467. 4190 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO4120
  468. 4200 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81:P=1
  469. 4205 PRINT"             4 + 4 =  8 ":GOSUB82
  470. 4210 PRINT"             4 + 5 =  9 ":GOSUB82
  471. 4215 PRINT"             4 + 6 =  10":GOSUB82
  472. 4220 PRINT"             4 + 7 =";
  473. 4230 GOSUB600:INPUTA$
  474. 4240 IFA$<>"11" THEN4260
  475. 4250 GOSUB800
  476. 4255 GOSUB82:GOTO4300
  477. 4260 GOSUB700
  478. 4265 GOSUB500:GOSUB82:P=P+1
  479. 4270 GOSUB720
  480. 4275 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   4 + 7 = 11  [159]"
  481. 4280 IFP=3THENGOSUB84:GOSUB90:GOTO 4300
  482. 4285 GOSUB740
  483. 4290 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO4220
  484. 4300 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81:P=1
  485. 4305 PRINT"             5 + 5 =  10":GOSUB82
  486. 4310 PRINT"             5 + 6 =  11":GOSUB82
  487. 4315 PRINT"             5 + 7 =  12":GOSUB82
  488. 4320 PRINT"             5 + 8 =";
  489. 4330 GOSUB600:INPUTA$
  490. 4340 IFA$<>"13" THEN4360
  491. 4350 GOSUB800
  492. 4355 GOSUB82:GOTO4400
  493. 4360 GOSUB700
  494. 4365 GOSUB500:GOSUB82:P=P+1
  495. 4370 GOSUB720
  496. 4375 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   5 + 8 = 13  [159]"
  497. 4380 IFP=3THENGOSUB84:GOSUB90:GOTO 4400
  498. 4385 GOSUB740
  499. 4390 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO4320
  500. 4400 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81:P=1
  501. 4405 PRINT"             6 + 6 =  12":GOSUB82
  502. 4410 PRINT"             6 + 7 =  13":GOSUB82
  503. 4415 PRINT"             6 + 8 =  14":GOSUB82
  504. 4420 PRINT"             6 + 9 =";
  505. 4430 GOSUB600:INPUTA$
  506. 4440 IFA$<>"15" THEN4460
  507. 4450 GOSUB800
  508. 4455 GOSUB82:GOTO4500
  509. 4460 GOSUB700
  510. 4465 GOSUB500:GOSUB82:P=P+1
  511. 4470 GOSUB720
  512. 4475 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   6 + 9 = 15  [159]"
  513. 4480 IFP=3THENGOSUB84:GOSUB90:GOTO 4500
  514. 4485 GOSUB740
  515. 4490 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO4420
  516. 4500 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81:P=1
  517. 4505 PRINT"             7 + 7 =  14":GOSUB82
  518. 4510 PRINT"             7 + 8 =  15":GOSUB82
  519. 4515 PRINT"             7 + 9 =  16":GOSUB82
  520. 4520 PRINT"            7 + 10 =";
  521. 4530 GOSUB600:INPUTA$
  522. 4540 IFA$<>"17" THEN4560
  523. 4550 GOSUB800
  524. 4555 GOSUB82:GOTO4600
  525. 4560 GOSUB700
  526. 4565 GOSUB500:GOSUB82:P=P+1
  527. 4570 GOSUB720
  528. 4575 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   7 + 10 = 17  [159]"
  529. 4580 IFP=3THENGOSUB84:GOSUB90:GOTO 4600
  530. 4585 GOSUB740
  531. 4590 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO4520
  532. 4600 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81:P=1
  533. 4605 PRINT"             8 + 8 =  16":GOSUB82
  534. 4610 PRINT"             8 + 9 =  17":GOSUB82
  535. 4615 PRINT"            8 + 10 =  18":GOSUB82
  536. 4620 PRINT"            8 + 11 =";
  537. 4630 GOSUB600:INPUTA$
  538. 4640 IFA$<>"19" THEN4660
  539. 4650 GOSUB800
  540. 4655 GOSUB82:GOTO4700
  541. 4660 GOSUB700
  542. 4665 GOSUB500:GOSUB82:P=P+1
  543. 4670 GOSUB720
  544. 4675 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   8 + 11 = 19  [159]"
  545. 4680 IFP=3THENGOSUB84:GOSUB90:GOTO 4700
  546. 4685 GOSUB740
  547. 4690 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO4620
  548. 4700 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81:P=1
  549. 4705 PRINT"             9 + 9 =  18":GOSUB82
  550. 4710 PRINT"            9 + 10 =  19":GOSUB82
  551. 4715 PRINT"            9 + 11 =  20":GOSUB82
  552. 4720 PRINT"            9 + 12 =";
  553. 4730 GOSUB600:INPUTA$
  554. 4740 IFA$<>"21" THEN4760
  555. 4750 GOSUB800
  556. 4755 GOSUB82:GOTO4800
  557. 4760 GOSUB700
  558. 4765 GOSUB500:GOSUB82:P=P+1
  559. 4770 GOSUB720
  560. 4775 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   9 + 12 = 21  [159]"
  561. 4780 IFP=3THENGOSUB84:GOSUB90:GOTO 4800
  562. 4785 GOSUB740
  563. 4790 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO4720
  564. 4800 PRINT"[147]   YOU HAVE COMPLETED LEVEL 4.
  565. 4805 [153]"   YOU NOW HAVE A CHOICE:
  566. 4810 PRINT"   PRESS  R [146] TO REPEAT THIS LEVEL.
  567. 4815 [153]"   PRESS  C WAIT TO SELECT A NEW LEVEL
  568. 4820 PRINT"   PRESS  M [146] TO RETURN TO DISK MENU
  569. 4825 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"C"[175]R$[179][177]"M"[167]4825
  570. 4830 [139]R$[178]"R"[167] [140]:[137]4000
  571. 4835 [139]R$[178]"C"[167] [140]:[137]200
  572. 4840 [151]631,13:[151]198,2
  573. 4845 [153]"LOAD RETURNING TO THE DISK MENU
  574. 4850 LOAD"MENU",8
  575. 4855 RUN
  576. 4860 END
  577. 5000 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81:P=1
  578. 5005 PRINT"             2 + 2 =  4 ":GOSUB82
  579. 5010 PRINT"             2 + 3 =  5 ":GOSUB82
  580. 5015 PRINT"             2 + 4 =  6 ":GOSUB82
  581. 5020 PRINT"             2 + 5 =  7 ":GOSUB82
  582. 5025 PRINT"             2 + 6 =";
  583. 5030 GOSUB600:INPUTA$
  584. 5040 IFA$<>"8" THEN5060
  585. 5050 GOSUB800
  586. 5055 GOSUB82:GOTO5100
  587. 5060 GOSUB700
  588. 5065 GOSUB500:GOSUB82:P=P+1
  589. 5070 GOSUB720
  590. 5075 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   2 + 6 = 8  [159]"
  591. 5080 IFP=3THENGOSUB84:GOSUB90:GOTO 5100
  592. 5085 GOSUB740
  593. 5090 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO5020
  594. 5100 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81:P=1
  595. 5105 PRINT"             3 + 3 =  6 ":GOSUB82
  596. 5110 PRINT"             3 + 4 =  7 ":GOSUB82
  597. 5115 PRINT"             3 + 5 =  8 ":GOSUB82
  598. 5120 PRINT"             3 + 6 =  9 ":GOSUB82
  599. 5125 PRINT"             3 + 7 =";
  600. 5130 GOSUB600:INPUTA$
  601. 5140 IFA$<>"10" THEN5160
  602. 5150 GOSUB800
  603. 5155 GOSUB82:GOTO5200
  604. 5160 GOSUB700
  605. 5165 GOSUB500:GOSUB82:P=P+1
  606. 5170 GOSUB720
  607. 5175 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   3 + 7 = 10 [159]"
  608. 5180 IFP=3THENGOSUB84:GOSUB90:GOTO 5200
  609. 5185 GOSUB740
  610. 5190 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO5120
  611. 5200 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81:P=1
  612. 5205 PRINT"             4 + 4 =  8 ":GOSUB82
  613. 5210 PRINT"             4 + 5 =  9 ":GOSUB82
  614. 5215 PRINT"             4 + 6 =  10":GOSUB82
  615. 5220 PRINT"             4 + 7 =  11":GOSUB82
  616. 5225 PRINT"             4 + 8 =";
  617. 5230 GOSUB600:INPUTA$
  618. 5240 IFA$<>"12" THEN5260
  619. 5250 GOSUB800
  620. 5255 GOSUB82:GOTO5300
  621. 5260 GOSUB700
  622. 5265 GOSUB500:GOSUB82:P=P+1
  623. 5270 GOSUB720
  624. 5275 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   4 + 8 = 12 [159]"
  625. 5280 IFP=3THENGOSUB84:GOSUB90:GOTO 5300
  626. 5285 GOSUB740
  627. 5290 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO5220
  628. 5300 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81:P=1
  629. 5305 PRINT"             5 + 5 =  10":GOSUB82
  630. 5310 PRINT"             5 + 6 =  11":GOSUB82
  631. 5315 PRINT"             5 + 7 =  12":GOSUB82
  632. 5320 PRINT"             5 + 8 =  13":GOSUB82
  633. 5325 PRINT"             5 + 9 =";
  634. 5330 GOSUB600:INPUTA$
  635. 5340 IFA$<>"14" THEN5360
  636. 5350 GOSUB800
  637. 5355 GOSUB82:GOTO5400
  638. 5360 GOSUB700
  639. 5365 GOSUB500:GOSUB82:P=P+1
  640. 5370 GOSUB720
  641. 5375 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   5 + 9 = 14 [159]"
  642. 5380 IFP=3THENGOSUB84:GOSUB90:GOTO 5400
  643. 5385 GOSUB740
  644. 5390 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO5320
  645. 5400 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81:P=1
  646. 5405 PRINT"             6 + 6 =  12":GOSUB82
  647. 5410 PRINT"             6 + 7 =  13":GOSUB82
  648. 5415 PRINT"             6 + 8 =  14":GOSUB82
  649. 5420 PRINT"             6 + 9 =  15":GOSUB82
  650. 5425 PRINT"            6 + 10 =";
  651. 5430 GOSUB600:INPUTA$
  652. 5440 IFA$<>"16" THEN5460
  653. 5450 GOSUB800
  654. 5455 GOSUB82:GOTO5500
  655. 5460 GOSUB700
  656. 5465 GOSUB500:GOSUB82:P=P+1
  657. 5470 GOSUB720
  658. 5475 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   6 + 10 = 16 [159]"
  659. 5480 IFP=3THENGOSUB84:GOSUB90:GOTO 5500
  660. 5485 GOSUB740
  661. 5490 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO5420
  662. 5500 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81:P=1
  663. 5505 PRINT"             7 + 7 =  14":GOSUB82
  664. 5510 PRINT"             7 + 8 =  15":GOSUB82
  665. 5515 PRINT"             7 + 9 =  16":GOSUB82
  666. 5520 PRINT"            7 + 10 =  17":GOSUB82
  667. 5525 PRINT"            7 + 11 =";
  668. 5530 GOSUB600:INPUTA$
  669. 5540 IFA$<>"18" THEN5560
  670. 5550 GOSUB800
  671. 5555 GOSUB82:GOTO5600
  672. 5560 GOSUB700
  673. 5565 GOSUB500:GOSUB82:P=P+1
  674. 5570 GOSUB720
  675. 5575 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   7 + 11 = 18 [159]"
  676. 5580 IFP=3THENGOSUB84:GOSUB90:GOTO 5600
  677. 5585 GOSUB740
  678. 5590 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO5520
  679. 5600 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81:P=1
  680. 5605 PRINT"             8 + 8 =  16":GOSUB82
  681. 5610 PRINT"             8 + 9 =  17":GOSUB82
  682. 5615 PRINT"            8 + 10 =  18":GOSUB82
  683. 5620 PRINT"            8 + 11 =  19":GOSUB82
  684. 5625 PRINT"            8 + 12 =";
  685. 5630 GOSUB600:INPUTA$
  686. 5640 IFA$<>"20" THEN5660
  687. 5650 GOSUB800
  688. 5655 GOSUB82:GOTO5700
  689. 5660 GOSUB700
  690. 5665 GOSUB500:GOSUB82:P=P+1
  691. 5670 GOSUB720
  692. 5675 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   8 + 12 = 20 [159]"
  693. 5680 IFP=3THENGOSUB84:GOSUB90:GOTO 5700
  694. 5685 GOSUB740
  695. 5690 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO5620
  696. 5700 PRINT"[152][147]          LOOK AND SAY...[159]":GOSUB81:P=1
  697. 5705 PRINT"             9 + 9 =  18":GOSUB82
  698. 5710 PRINT"            9 + 10 =  19":GOSUB82
  699. 5715 PRINT"            9 + 11 =  20":GOSUB82
  700. 5720 PRINT"            9 + 12 =  21":GOSUB82
  701. 5725 PRINT"            9 + 13 =";
  702. 5730 GOSUB600:INPUTA$
  703. 5740 IFA$<>"22" THEN5760
  704. 5750 GOSUB800
  705. 5755 GOSUB82:GOTO5800
  706. 5760 GOSUB700
  707. 5765 GOSUB500:GOSUB82:P=P+1
  708. 5770 GOSUB720
  709. 5775 GOSUB82:IFP=3THENPRINT"  STOP AND WRITE   9 + 13 = 22 [159]"
  710. 5780 IFP=3THENGOSUB84:GOSUB90:GOTO 5800
  711. 5785 GOSUB740
  712. 5790 PRINT"[145][145]                                        [145][145][145][145][145][145][145][145][145]":GOTO5720
  713. 5800 PRINT"[147]   YOU HAVE COMPLETED LEVEL 5.
  714. 5805 [153]"   YOU NOW HAVE A CHOICE:
  715. 5810 PRINT"   PRESS  R [146] TO REPEAT THIS LEVEL.
  716. 5815 [153]"   PRESS  C WAIT TO SELECT A NEW LEVEL
  717. 5820 PRINT"   PRESS  M [146] TO RETURN TO DISK MENU
  718. 5825 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"C"[175]R$[179][177]"M"[167]5825
  719. 5830 [139]R$[178]"R"[167] [140]:[137]5000
  720. 5835 [139]R$[178]"C"[167] [140]:[137]200
  721. 5840 [151]631,13:[151]198,2
  722. 5845 [153]"LOAD RETURNING TO THE DISK MENU
  723. 5850 LOAD"MENU",8
  724. 5855 RUN
  725. 5860 END
  726. 6000 REM CREATED BY THE MAD MAN OF LORNE PARK    WHC 90:11:18/92:02:06
  727.